home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / DCLAP 4j / DClap / DControl.cpp < prev    next >
Encoding:
Text File  |  1995-12-17  |  6.8 KB  |  306 lines  |  [TEXT/R*ch]
  1. // DControl.cp
  2. // d.g.gilbert
  3.  
  4.  
  5. #include "Dvibrant.h"
  6. #include "DControl.h"
  7. #include "DList.h"
  8. #include "DUtil.h"
  9.  
  10.  
  11.  
  12.  
  13. // class DControl  
  14.  
  15.  
  16.  
  17.  
  18. // class DCluster : DControl
  19.  
  20. extern "C" void groupActionProc(Nlm_GrouP    item)
  21. {
  22.     DCluster *obj= (DCluster*) Nlm_GetObject( (Nlm_GraphiC)item);
  23.     if (obj)  obj->IsMyViewAction(obj);
  24. }
  25.  
  26.  
  27. // fFont and SetFont are static
  28. Nlm_FonT DCluster::fFont = NULL;
  29.  
  30. void DCluster::SetFont( Nlm_FonT theFont)
  31. {
  32.     fFont= theFont;
  33. }
  34.  
  35.  
  36. DCluster::DCluster(long id, DView* itsSuperior, 
  37.     short width, short height, Boolean hidden, char* title) :
  38.     DControl( id, itsSuperior) 
  39. { 
  40.     if (hidden)
  41.         fGroup= Nlm_HiddenGroup( (Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, 
  42.             groupActionProc);
  43.     else
  44.         fGroup= Nlm_NormalGroup( (Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, title, 
  45.             fFont, groupActionProc);
  46.     this->SetNlmObject(fGroup);    
  47. }
  48.  
  49. DCluster::~DCluster()
  50. {
  51.  
  52. }
  53.  
  54.  
  55. //class DPrompt : public DControl
  56.  
  57. DPrompt::DPrompt(long id, DView* itsSuperior, char* title, short pixwidth, short pixheight, 
  58.     Nlm_FonT font, Justify just) :
  59.     DControl( id, itsSuperior) 
  60. {
  61.     fPrompt= Nlm_StaticPrompt((Nlm_WindoW)itsSuperior->GetNlmObject(), title, pixwidth, 
  62.                                 pixheight, font, just);  
  63.     this->SetNlmObject(fPrompt);    
  64. }
  65.  
  66.  
  67.  
  68.  
  69.     
  70.  
  71.  
  72.  
  73.  
  74. //class DPopupList : public DView
  75.     
  76. extern "C" void PopupListHandler(Nlm_PopuP p)
  77. {
  78.     DPopupList *obj= (DPopupList*) Nlm_GetObject((Nlm_GraphiC)p);
  79.     if (obj) obj->IsMyViewAction(obj);
  80. }
  81.  
  82. DPopupList::DPopupList(long id, DView* itsSuperior, Boolean macLike) :
  83.     DControl( id, itsSuperior) 
  84. {
  85.     fPopup= Nlm_PopupList((Nlm_GrouP)itsSuperior->GetNlmObject(), macLike, PopupListHandler);
  86.     this->SetNlmObject(fPopup);
  87.     //gViewCentral->RegisterView(id, fPopup, kMenu, this); << done by ::DView() 
  88.     //fItemList= new DList(NULL,DList::kOwnObjects + DList::kDeleteObjects);
  89.     fItemList= new DList(NULL);
  90. }
  91.  
  92.  
  93. DPopupList::~DPopupList()
  94. {
  95.     // dammit, DList( , kDeleteObjects) is NOT WORKING !! (not called obj destructors)
  96.     short i, n= fItemList->GetSize();
  97.     for (i=0; i<n; i++) {
  98.         DString* st= (DString*) fItemList->At(i);
  99.         delete st;
  100.         }
  101.     delete fItemList;
  102. }
  103.  
  104. #if FIX_THIS_LATER
  105. void  DPopupList::SetItemState(short item, Boolean enable) 
  106. {
  107.     DView* aview= (DView*)fPopupItemList->At(item);
  108.     if (aview) vobj= aview->fNlmObject;
  109.     if (enable) 
  110.         Nlm_EnableChoiceItem ( vobj, false, false);
  111.     else
  112.         Nlm_DisableChoiceItem ( vobj, false, false);
  113. }
  114. #endif
  115.  
  116. void  DPopupList::AddItem(char* title) 
  117. {
  118.     DString* s= new DString(title);
  119.     fItemList->InsertLast(s);
  120.     Nlm_PopupItem(fPopup, title);
  121. }
  122.  
  123. char* DPopupList::GetItemTitle( short item, char* title, ulong maxsize) 
  124. { 
  125.       if (item>0) {
  126.       DString* s= (DString*) fItemList->At(item-1);
  127.       if (s) {
  128.         char *cp= (char*) s->Get();
  129.         if (title==NULL) {
  130.           maxsize= StrLen(cp) + 1;
  131.           title= (char*) MemNew(maxsize);
  132.           }
  133.         StrNCpy(title, cp, maxsize);
  134.         }
  135.     }
  136.     return title;
  137. }
  138.  
  139. char* DPopupList::GetSelectedItem( short& item, char* name, ulong namesize) 
  140. { 
  141.     item= GetValue(); 
  142. #if 1
  143.     return this->GetItemTitle( item, name, namesize);
  144. #else
  145.   if (name && namesize) {
  146.       *name= 0;
  147.       if (item) {
  148.           DString* s= (DString*) fItemList->At(item-1);
  149.           StrNCpy(name, (char*)s->Get(), namesize);
  150.           }
  151.       }
  152. #endif
  153.   return name;
  154.     // this fails for MOTIF ... urgh
  155.     //return GetItemTitle(item, name, namesize); 
  156. }
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163. extern "C" void buttonActionProc(Nlm_ButtoN    item)
  164. {
  165.     DButton *obj= (DButton*) Nlm_GetObject( (Nlm_GraphiC)item);
  166.     if (obj)  obj->IsMyViewAction(obj);
  167. }
  168.  
  169. //class DButton : public DControl
  170.  
  171. DButton::DButton(long id, DView* itsSuperior, char* title):
  172.     DControl( id, itsSuperior) 
  173. {
  174.     fButton    = Nlm_PushButton( (Nlm_WindoW)itsSuperior->GetNlmObject(), title, buttonActionProc);
  175.     this->SetNlmObject(fButton);    
  176. }
  177.  
  178.  
  179. //class DDefaultButton : public DButton
  180.  
  181. DDefaultButton::DDefaultButton(long id, DView* itsSuperior, char* title):
  182.     DControl( id, itsSuperior) 
  183. {
  184.     fButton    = Nlm_DefaultButton((Nlm_WindoW)itsSuperior->GetNlmObject(), title, buttonActionProc);
  185.     this->SetNlmObject(fButton);    
  186. }
  187.  
  188.  
  189. //class DCheckBox : public DButton
  190.  
  191. DCheckBox::DCheckBox(long id, DView* itsSuperior, char* title):
  192.     DControl( id, itsSuperior) 
  193. {
  194.     fButton    = Nlm_CheckBox((Nlm_WindoW)itsSuperior->GetNlmObject(), title, buttonActionProc);
  195.     this->SetNlmObject(fButton);    
  196. }
  197.  
  198. //class DRadioButton : public DButton
  199.  
  200. DRadioButton::DRadioButton(long id, DView* itsSuperior, char* title):
  201.     DControl( id, itsSuperior) 
  202. {
  203.     fButton    = Nlm_RadioButton((Nlm_WindoW)itsSuperior->GetNlmObject(), title);
  204.     this->SetNlmObject(fButton);    
  205. }
  206.  
  207.  
  208.  
  209.  
  210.  
  211. //class DListBox : public DControl
  212.  
  213.  
  214. extern "C" void listboxActionProc(Nlm_LisT    item)
  215. {
  216.     DListBox *obj= (DListBox*) Nlm_GetObject( (Nlm_GraphiC)item);
  217.     if (obj)  obj->IsMyViewAction(obj);
  218. }
  219.  
  220. DListBox::DListBox(long id, DView* itsSuperior, 
  221.     short width, short height, Boolean multiselection):
  222.     DControl( id, itsSuperior) 
  223. {
  224.     if (multiselection)
  225.         fListBox= Nlm_MultiList((Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, listboxActionProc);
  226.     else
  227.         fListBox= Nlm_SingleList((Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, listboxActionProc);
  228.     this->SetNlmObject(fListBox);    
  229. }
  230.  
  231.  
  232.  
  233. //class DRepeatButton : public DControl
  234.  
  235. extern "C" void repeaterProc(Nlm_RepeaT item, Nlm_PoinT mouse)
  236. {
  237.     DRepeatButton *obj= (DRepeatButton*) Nlm_GetObject( (Nlm_GraphiC)item);
  238.     if (obj) obj->ClickAt(mouse);
  239. }
  240.  
  241. DRepeatButton::DRepeatButton(long id, DView* itsSuperior, char* title):
  242.     DControl( id, itsSuperior) 
  243. {
  244.     fRepeater= Nlm_RepeatButton((Nlm_WindoW)itsSuperior->GetNlmObject(), title, repeaterProc);
  245.     this->SetNlmObject(fRepeater);    
  246. }
  247.  
  248. void DRepeatButton::ClickAt( Nlm_PoinT mouse)
  249. {
  250.  
  251. }
  252.  
  253.  
  254.  
  255.  
  256. //class DScrollBar : public DControl
  257.  
  258. extern "C" void scrollbarProc(Nlm_BaR item, Nlm_GraphiC itsSlave, Nlm_Int2 newval, Nlm_Int2 oldval)
  259. {
  260.     DScrollBar *obj= (DScrollBar*) Nlm_GetObject( (Nlm_GraphiC)item);
  261.     DView *scrollee= (DView*) Nlm_GetObject( itsSlave);
  262.     // scrollee should == itsSuperior 
  263.     if (obj)  obj->Scroll(scrollee,newval,oldval);
  264. }
  265.  
  266. DScrollBar::DScrollBar(long id, DView* itsSuperior, short width, short height):
  267.     DControl( id, itsSuperior)
  268. {
  269.     fScrollbar=  Nlm_ScrollBar((Nlm_WindoW)itsSuperior->GetNlmObject(), width, height, scrollbarProc);
  270.     this->SetNlmObject(fScrollbar);    
  271. }
  272.  
  273. void DScrollBar::Scroll(DView* scrollee, short newval, short oldval)
  274. {
  275.     
  276. }
  277.  
  278.  
  279.  
  280.  
  281.  
  282. //class DSwitchBox : public DControl
  283.  
  284. extern "C" void switchProc(Nlm_SwitcH    item, short newval, short oldval)
  285. {
  286.     DSwitchBox *obj= (DSwitchBox*) Nlm_GetObject( (Nlm_GraphiC)item);
  287.     if (obj)  obj->Switch(newval, oldval);
  288. }
  289.  
  290. DSwitchBox::DSwitchBox(long id, DView* itsSuperior, Boolean displayTextOfValue, Boolean vertical):
  291.     DControl( id, itsSuperior)
  292. {
  293.     if (vertical)
  294.         fSwitch= Nlm_UpDownSwitch((Nlm_WindoW)itsSuperior->GetNlmObject(), displayTextOfValue, switchProc);
  295.     else
  296.         fSwitch= Nlm_LeftRightSwitch((Nlm_WindoW)itsSuperior->GetNlmObject(), displayTextOfValue, switchProc);
  297.     this->SetNlmObject(fSwitch);    
  298. }
  299.  
  300. void DSwitchBox::Switch(short newval, short oldval)
  301. {
  302.     
  303. }
  304.  
  305.  
  306.